MacFormat España 21/macformat_21.iso/Shareware/Comunicación/MacWebCam 2.1/SampleScripts/Fetch 3.0.1 script

Text File | 1996-08-07 | 919 b | 18 lines | [TEXT/ToyS]

-- A post-process script to FTP the last image (Image.jpg) to a remote location.
-- This script uses a two step process to minimize the time that a image is unavailable to the http server.
-- Any attept to FTP an image from the Mac to a remote http server could result in errors due to read/write contention.
-- Use at your own risk!
-- You may want to turn off Fetch's Misc. Preference of "Show Sign-on Dialog at Startup"

-- To use:
-- Change the host, userID, password, and file names as needed.

tell application "Fetch 3.0.1"
    if (not (exists window "ftp.your_host.com")) then
        make new transfer window at beginning with properties {hostname:"ftp.your_host.com", userid:"your_user_name", password:"your_password"}
    end if
    put into transfer window "ftp.your_host.com" item alias "hd:WebCam:Image.jpg" text format Raw Data binary format Raw Data
    set name of remote file "Image.jpg" to "current.jpg"
end tell